If the datasource of the subreport is of an SQL
Set CRXTables = CRXSubreport.Database.Tables
Set CRXTable = CRXTables.Item(1)
CRXTable.SetLogOnInfo <servername>, <databasename>, <userid>, <password>
Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |